.*
.*
.*                    +----------+
.*    Macro Name   -   @SYSOUT  
.*                    +----------+
.*
.*
.*    Function -
.*             Sysout file definition
.*
.*    Syntax -
.*
.*
.*    Operation -
.*
.*
.*    Author -
.*         Name     :  Deru Sudibyo
.*                     Technical Consultant
.*                     Computer Associates
.*                     Indonesia Office
.*                     Wisma BNI-46 34th floor, BNI-46 City
.*                     Jl. Jend. Sudirman, Kav 1, Jakarta Pusat
.*         Copyright:  (C)1998 Deru Sudibyo
.*
.*    Disclaimer -
.*        This macro is developed as a personal support, and is
.*        not a part of CA support matterials.  The purpose is as
.*        a temporary solution or even just a sample.  Therefor,
.*        further modifications and maintenance are client's
.*        responsibilities.
.*
.*    Modification Log -
.*    +--------+------------+--------+---------------------------+
.*     Date    Engineer    V.R.L.  Description               
.*    +--------+------------+--------+---------------------------+
.*    98/02/12 Deru S.     1.0.0.  First development         
.*                                                           
.*                                                           
.*                                                           
.*                                                           
.*                                                           
.*                                                           
.*    +--------+------------+--------+---------------------------+
.*
         MACRO
&LABEL   @SYSOUT &JESNAME=JES2,&DDNAME=JES2FILE
         COPY  DERGBLVR
ALSYSOUT @S99PARM ALLOC,                  Define SYSOUT alloc parm     +
               TYPE=DATA,                 Map type is memory data      +
               SSREQ=&JESNAME,            Request JES2 dataset         +
               EXTRB=YES,                 Request S99RBX               +
               PREFIX=A,                  Use prefix A --> ARBxxxx     +
               DISP=(OLD,DELETE),         Use disp. delete             +
               DD=&DDNAME,                and DD name is JES2FILE      +
               DSN='SYSOUT.DATA.SET'      DSN is just to init field
UNSYSOUT @S99PARM DEALLOC,                Define SYSOUT dealloc parm   +
               TYPE=DATA,                 Map type is memory data      +
               PREFIX=D,                  Use prefix D --> DRBxxx      +
               DISP=DELETE,               Override disposition DELETE  +
               EXTRB=YES,                 Request S99RBX               +
               DD=&DDNAME                 and DD name is JES2FILE
         MEND
